home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / datash1a / dataenvi.dsr < prev    next >
Encoding:
Visual Basic Active Designer file  |  1999-10-09  |  4.8 KB  |  146 lines
  1. VERSION 5.00
  2. Begin {C0E45035-5775-11D0-B388-00A0C9055D8E} DataEnvironment1 
  3.    ClientHeight    =   8580
  4.    ClientLeft      =   0
  5.    ClientTop       =   0
  6.    ClientWidth     =   13215
  7.    _ExtentX        =   23310
  8.    _ExtentY        =   15134
  9.    FolderFlags     =   1
  10.    TypeLibGuid     =   "{97EDEC69-7E72-11D3-8073-00104B29410D}"
  11.    TypeInfoGuid    =   "{97EDEC6A-7E72-11D3-8073-00104B29410D}"
  12.    TypeInfoCookie  =   0
  13.    Version         =   4
  14.    NumConnections  =   1
  15.    BeginProperty Connection1 
  16.       ConnectionName  =   "Connection1"
  17.       ConnDispId      =   1001
  18.       SourceOfData    =   3
  19.       ConnectionSource=   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Data Shaping\Contacts.mdb;Persist Security Info=False"
  20.       Expanded        =   -1  'True
  21.       QuoteChar       =   96
  22.       SeparatorChar   =   46
  23.    EndProperty
  24.    NumRecordsets   =   3
  25.    BeginProperty Recordset1 
  26.       CommandName     =   "PhoneNumbers"
  27.       CommDispId      =   1002
  28.       RsDispId        =   1009
  29.       CommandText     =   "SELECT PhoneNumber, Association, Name FROM AddressBook WHERE (Association = ?)"
  30.       ActiveConnectionName=   "Connection1"
  31.       CommandType     =   1
  32.       Expanded        =   -1  'True
  33.       IsRSReturning   =   -1  'True
  34.       NumFields       =   3
  35.       BeginProperty Field1 
  36.          Precision       =   0
  37.          Size            =   13
  38.          Scale           =   0
  39.          Type            =   202
  40.          Name            =   "PhoneNumber"
  41.          Caption         =   "Phone Number"
  42.       EndProperty
  43.       BeginProperty Field2 
  44.          Precision       =   0
  45.          Size            =   15
  46.          Scale           =   0
  47.          Type            =   202
  48.          Name            =   "Association"
  49.          Caption         =   "Association"
  50.       EndProperty
  51.       BeginProperty Field3 
  52.          Precision       =   0
  53.          Size            =   20
  54.          Scale           =   0
  55.          Type            =   202
  56.          Name            =   "Name"
  57.          Caption         =   "Name"
  58.       EndProperty
  59.       NumGroups       =   0
  60.       ParamCount      =   1
  61.       BeginProperty P1 
  62.          RealName        =   "?"
  63.          UserName        =   "Association"
  64.          Direction       =   1
  65.          Precision       =   0
  66.          Scale           =   0
  67.          Size            =   510
  68.          DataType        =   202
  69.          HostType        =   8
  70.          Required        =   -1  'True
  71.          ParamValue      =   "Home"
  72.       EndProperty
  73.       RelationCount   =   0
  74.       AggregateCount  =   0
  75.    EndProperty
  76.    BeginProperty Recordset2 
  77.       CommandName     =   "Family"
  78.       CommDispId      =   -1
  79.       RsDispId        =   -1
  80.       CommandText     =   "SELECT Family, PhoneNumber FROM NameSearch"
  81.       ActiveConnectionName=   "Connection1"
  82.       CommandType     =   1
  83.       RelateToParent  =   -1  'True
  84.       ParentCommandName=   "PhoneNumbers"
  85.       Expanded        =   -1  'True
  86.       IsRSReturning   =   -1  'True
  87.       NumFields       =   2
  88.       BeginProperty Field1 
  89.          Precision       =   0
  90.          Size            =   20
  91.          Scale           =   0
  92.          Type            =   202
  93.          Name            =   "Family"
  94.          Caption         =   "Family"
  95.       EndProperty
  96.       BeginProperty Field2 
  97.          Precision       =   0
  98.          Size            =   10
  99.          Scale           =   0
  100.          Type            =   202
  101.          Name            =   "PhoneNumber"
  102.          Caption         =   "Phone Number"
  103.       EndProperty
  104.       NumGroups       =   0
  105.       ParamCount      =   0
  106.       RelationCount   =   1
  107.       BeginProperty Relation1 
  108.          ParentField     =   "PhoneNumber"
  109.          ChildField      =   "PhoneNumber"
  110.          ParentType      =   0
  111.          ChildType       =   0
  112.       EndProperty
  113.       AggregateCount  =   0
  114.    EndProperty
  115.    BeginProperty Recordset3 
  116.       CommandName     =   "Associations"
  117.       CommDispId      =   1010
  118.       RsDispId        =   1016
  119.       CommandText     =   "SELECT DISTINCT Association FROM AddressBook"
  120.       ActiveConnectionName=   "Connection1"
  121.       CommandType     =   1
  122.       Expanded        =   -1  'True
  123.       IsRSReturning   =   -1  'True
  124.       NumFields       =   1
  125.       BeginProperty Field1 
  126.          Precision       =   0
  127.          Size            =   15
  128.          Scale           =   0
  129.          Type            =   202
  130.          Name            =   "Association"
  131.          Caption         =   "Association"
  132.       EndProperty
  133.       NumGroups       =   0
  134.       ParamCount      =   0
  135.       RelationCount   =   0
  136.       AggregateCount  =   0
  137.    EndProperty
  138. End
  139. Attribute VB_Name = "DataEnvironment1"
  140. Attribute VB_GlobalNameSpace = False
  141. Attribute VB_Creatable = True
  142. Attribute VB_PredeclaredId = True
  143. Attribute VB_Exposed = False
  144. Option Explicit
  145.  
  146.